home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
bcsrce2.zip
/
COMTXT2.BC
< prev
next >
Wrap
Text File
|
1990-10-15
|
2KB
|
73 lines
echo off
let %!a = %1
if %!a# = # GOTO HELP
GOTO TEST2
:TEST2
let %!b = %2
upper %!b
if %!b# = # GOTO HELP
let %!e = %!a
let %!s = %!a
IF NOT EXIST %!e GOTO HELP2
filesize %!s
let %!z = %!s
gt %!s 63900
if errorlevel 1 goto ERROR
rem note: some text editors are capable of editing a comtxt created file,
rem note: however, the first line must NEVER be changed, moved or deleted.
rem rem 23 208 229 2 241
rem rem │172│208│ 7 │ 33│205
rem rem │ │ │ │ │ │ │ │ │ │
rem rem v v v v v v v v v v
rem echo ╛¼è╨÷╨4σt┤═!δ±É═ >com····.tmp
rem rem ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
rem rem │ │ │ │ │ │ │ │ │ │ │
rem rem │ 1 │246│116│205│144│
rem rem 190 138 52 180 235 32
echonolf \\190\\23\\1\\172\\138\\208\\246\\208\\52\\229\\116\\7\\180>com····.tmp
echonolf \\2\\205\\33\\235\\241\\144\\205\\32>>com····.tmp
echo \\32>>com····.tmp
copy com····.tmp /b + %!a /a %!b.com
erase com····.tmp
echo Program's Syntax is--: %!b [\\124Pipe [Filter]] [\\62Redirect [PRN/File.Ext]]
echo.
echo %!b, by itself, acts like the DIR command without /W or /P options.
echo.
echo You may use Ctrl-S to toggle pause the STDOUT display and Ctrl-C to abort.
echo.
echo You may wish to use LZEXE on %!b to save on space storage.
GOTO END
:HELP
ECHO Syntax---: COMTXT [Source.Ext] [Comname]
ECHO Usage----: Creates a .COM screen file from any pure text file that
ECHO does not exceed 63,900 bytes.
ECHO.
ECHO Note: the resultant .COM file can be copied to most
ECHO printers without adverse effects. It also may
ECHO be edited directly with some text editors.
ECHO Just be sure NOT to change, move, or delete
ECHO the first line since it will no longer execute.
ECHO.
ECHO [Source.Ext] MUST be a pure ascii text file
ECHO [Source.Ext] can include box graphics (▒,╠,═,╡, etc)
ECHO [Comname] MUST NOT include an extension (.COM is added)
ECHO.
ECHO TIP
ECHO DIR C:\MM\DRAWER\*.DOC \\124 SORT \\62 Textemp.Txt
ECHO COMTXT Textemp.Txt DOCS
ECHO DOCS
ECHO DOCS \\62 PRN
GOTO END
:ERROR
echo %!a has %!z bytes which excedes the 63,900 limit!
echo.
waitkey 2
goto HELP
:HELP2
echo Unable to locate a file named %!a\\33
echo.
waitkey 2
goto HELP
:END